home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / telecomm / storm100.lzh / STRT_LST.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-10-30  |  529 b   |  24 lines
  1. 'STRT_LST.BAS  for use when online with GEnie
  2. 'run this with an alt-key to display a list of favorite places on GEnie
  3. 'when the list is displayed, press a key to jump to 1st 'GRMEYER v1.1 10/30/93
  4. READ n
  5. DIM p$(n),pg$(n)
  6. FOR x = 1 TO n:READ p$(x),pg$(x):NEXT x
  7. t$ = "pick one "
  8. x = LISTBOX(t$,p$(1),n)
  9. IF x > 0 AND x < n THEN SEND pg$(x)
  10. END
  11. DATA 5
  12. DATA " Bulletin Board ST RT","M475;1"
  13. DATA " RTC ST RT","M475;2"
  14. DATA " Library ST RT","M475;3"
  15. DATA " Mail","M200"
  16. DATA " <cancel>"alzation ==
  17. REA,""
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.